COMMENT ⊗   VALID 00009 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	"the dragon font, used    by ruediger pfeiffer-rupp"
C00003 00003	"a: from west to south"
C00004 00004	"b: from west to north"
C00005 00005	"c:from north to east"
C00006 00006	"d:from south to east"
C00007 00007	"e: from west to south and from north to east
C00008 00008	"f: from west to north and from south to east"
C00009 00009
C00010 ENDMK
C⊗;
"the dragon font, used    by ruediger pfeiffer-rupp";
fntmode; %this causes a font for the xgp to be produced
tfxmode; %this causes a TEX informatin file to be produced
titletrace; %this prints out quoted strings when they occur
points=10; %change this if yout want a diffeerent size font
pixels=3.6; %raster units per point for TEX onthe XGP
w0=pixels+1; %pen size is one pint plus one raster unit
cpen; maxht top0 points.pixels. %tallest output in raster units
"a: from west to south";
input drag; charcode `a;
w0 draw 4{1,0}..3{0,-1}.
"b: from west to north";
input drag; charcode `b;
w0 draw 4{1,0}..1{0,1}.
"c:from north to east";
input drag; charcode `c;
w0 draw 1{0,-1}..2{1,0}.
"d:from south to east";
input drag; chrcode `d;
w0 draw 3{0,1}..2{1,0}.
"e: from west to south and from north to east;
inputt drag;  charcode `e;
w0 draw 4{1,0}..3{0,-1}; draw 1{0,-1}..2{1,0}.
"f: from west to north and from south to east";
input drag; charcode `f;
w0 draw 4{1,0}..1{0,1}; draw 3{0,1}..2{1,0}.

"z: blank";
input drag; charcode `z.